<!--#Include file="myConst.asp"-->

<%
On Error Resume Next 

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("lydb\" &tslt_Database)
Conn.Open

if Conn.errors.count>0 then
      Response.Write "<script language='javascript'>alert ('\nݿʱˣ" &Conn.errors.count&""&_
      "  󣬸ôش\nֿܵĴ\n ϵͳʱҪݿ⡣\n ݿӳִݿǷڡ\n Ա¼ִ     ԭݿϴļ     ע⣺ֻܱϴνԭǰˡ');</script>"
      Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("MyCopyFolder\lydb\" &tslt_Database)
	  Conn.Open
end If

Sub conn_Nothing()
    conn.close
    set conn=Nothing
End Sub 
%>
